home *** CD-ROM | disk | FTP | other *** search
/ GameStar 1998 November (Bonus) / GAMESTAR11B.ISO / ENCYC99 / MM / T620277A.DCR / Scripts_12_Class Layer.ls < prev    next >
Encoding:
Text File  |  1998-06-29  |  2.8 KB  |  85 lines
  1. property myName, internalCursorGod, labelsButton, downPicts, upPicts, Slider, blendSlidThing, layerTitle, labels, picts, copyList, labelMember, pictMember, layerCopy, cursorGod, ScrollBar, LabelGod
  2.  
  3. on areYouThere me, xLoc
  4.   return areYouThere(internalCursorGod, xLoc)
  5. end
  6.  
  7. on mouseEvent me, xEvent, xLoc
  8.   if xEvent = #mouseDown then
  9.     hideLabels(LabelGod)
  10.     newMember(ScrollBar, layerCopy)
  11.   end if
  12. end
  13.  
  14. on crankUp me
  15.   setPicts(labelsButton, downPicts)
  16.   crankUp(blendSlidThing)
  17.   newMember(ScrollBar, layerCopy)
  18. end
  19.  
  20. on crankDown me
  21.   setPicts(labelsButton, upPicts)
  22.   crankDown(blendSlidThing)
  23. end
  24.  
  25. on beNormal me
  26.   setPicts(labelsButton, upPicts)
  27. end
  28.  
  29. on toString me
  30.   return myName
  31. end
  32.  
  33. on flip me, xDirection
  34.   case xDirection of
  35.     #top, #bottom:
  36.       set labelMember to getProp(labels, xDirection)
  37.       set pictMember to getProp(picts, xDirection)
  38.       set layerCopy to getProp(copyList, xDirection)
  39.       newPict(blendSlidThing, pictMember)
  40.   end case
  41. end
  42.  
  43. on new me, xList
  44.   set myName to getProp(xList, #layerName)
  45.   set layerTitle to new(script "Class LayerTitle", getProp(xList, #titleSprite))
  46.   set labelsButton to new(script "Class PictButton", getProp(xList, #buttonSprite))
  47.   set upPicts to [member "labelsOn", member "labelsUp", member "labelsDown", member "labelsDown"]
  48.   set downPicts to [member "labelsDown", member "labelsDown", member "labelsDown", member "labelsDown"]
  49.   setPicts(labelsButton, upPicts)
  50.   set topLabels to member ("top" && myName && "labels")
  51.   set bottomLabels to member ("bottom" && myName && "labels")
  52.   set labels to [#top: topLabels, #bottom: bottomLabels]
  53.   set labelMember to the top of labels
  54.   set topPict to member ("top" && myName && "pict")
  55.   set bottomPict to member ("bottom" && myName && "pict")
  56.   set picts to [#top: topPict, #bottom: bottomPict]
  57.   set pictMember to the top of picts
  58.   set topCopy to member ("top" && myName && "copy")
  59.   set bottomCopy to member ("bottom" && myName && "copy")
  60.   set copyList to [#top: topCopy, #bottom: bottomCopy]
  61.   set layerCopy to the top of copyList
  62.   set Slider to new(script "Class HorizontalSlider", the rect of sprite getProp(xList, #sliderSprite), getProp(xList, #grabberSprite))
  63.   set blendSlidThing to new(script "Class BlendSlidThing", getProp(xList, #blendedSprite))
  64.   setMaxSlide(blendSlidThing, 12)
  65.   linkUp(blendSlidThing, Slider)
  66.   linkUp(Slider, blendSlidThing)
  67.   set internalCursorGod to new(script "Class CursorGod")
  68.   subscribe(labelsButton, internalCursorGod)
  69.   subscribe(Slider, internalCursorGod)
  70.   subscribe(layerTitle, internalCursorGod)
  71.   return me
  72. end
  73.  
  74. on linkUp me, xLabelGod, xScrollBar
  75.   set LabelGod to xLabelGod
  76.   addThing(LabelGod, me)
  77.   linkUp(labelsButton, LabelGod, me)
  78.   set ScrollBar to xScrollBar
  79. end
  80.  
  81. on subscribe me, xCursorGod
  82.   set cursorGod to xCursorGod
  83.   subscribe(cursorGod, me)
  84. end
  85.